リスト：LASER Ver3.1

プチコン　プログラムリスト

タイトル：LASER Ver3.1
レーザーを撃つことを目的としたものです。
敵キャラ，衝突判定を盛り込みました。

Yボタンでレーザー撃てます。
Bボタンでオプション追加。
Aボタンでオプションが減ります。
Xボタンで終了します。
もちろん十字キー（スライドパッド）で移動できます。

敵キャラにレーザーを当てると色が変わります。
破壊はできません。
また、敵キャラの移動中は衝突判定をしていません。
移動中（自動補間）に色を変えると、移動が中断されてしまいます。

「一連のプログラム開発で分かったこと。」
このプログラムは処理落ち前提で作り始めました。
全体が均一に処理落ちすれば問題なく遊べるというか、昔のシューティングゲームは普通に処理落ちもゲーム性の一つとされていました。
そのためにスプライトの移動をまとめて行えるような作りになっています。
イメージとしては、必要な計算を全て終わらせて垂直帰線期間を待って画面を書き換える（実際に動かす）というような感じです。
結果、計算が間に合わなければ1フレームスキップ（処理落ち）します。

それに対して、プチコンで速度を稼ごうと思ったら処理を極力プチコンに渡してしまう必要があります。
スプライトに限って言えば、自動補間を利用してスプライトを移動するということです。
（プチコンは終点を指定しておけば、自動補間してスプライトを移動してくれます。）

とても優れた機能ですが、今回のプログラムの構造からすると欠点になってしまいます。
レーザーを大量に撃つことによって処理落ちが発生しますが、自動補間による移動は処理落ちの影響を受けません。
（敵キャラの出現はカウンタによってタイミングを計っているいるので影響を受けます。出現間隔が変わるのはそのためですが移動速度は均一です。）
自機はコントローラー入力によって随時移動させています。
つまり、自機は処理落ちの影響を受け遅くなり、敵キャラは自動補間によって処理落ち無しで動作します。

結論としては・・・
均一に処理落ちさせるには、すべてのスプライトを自力で動かす（1フレームごとに位置を指定すると言う意味）必要があります。
が、自動補間を積極的に利用した方が、ゴージャス（キャラが沢山）なゲームを作れる可能性が高くなります。
そして、自動補間を使うなら処理落ちは極力避けるようにするべきです。

ゲーム性に合わせて選択すれば良いのですが、BGでも自動補間が使えるので後者を選択した方が良いと思います。
即ち、「プチコンの仕組みに則って処理落ちがしない範囲で作る」ことが良いと思いました。

行き当たりばったりで来ましたが、とりあえずこのレーザーを撃つプログラムは役目を終えたかなと。

http://www43.tok2.com/home/ogut/index.html
リスト作成に上記サイトの「PTC2HTML」を利用させていただいています。

001. ′Ｖｅｒ　３．１
002. 　′テキ１０タイ
003. ′Ｖｅｒ　３．０
004. 　′テキシュツケ゛ン
005. ′Ｖｅｒ　２．１
006. 　′ＢＧニホシヲヒョウシ゛
007. ′Ｖｅｒ　２．０　７コショリオチナシ
008. 　′キ゛シ゛ヒ゛ットシフト
009. ＡＣＬＳ
010. ＣＬＥＡＲ
011. ＶＩＳＩＢＬＥ　１，１，１，１，１，１
012. ＣＬＳ：ＣＯＬＯＲ　０
013. ′ＧＰＡＧＥ　０，０，０
014. 
015. ＧＯＳＵＢ　＠ＢＧＳＥＴ
016. ＧＯＳＵＢ　＠ＢＧＳＣＲ
017. 
018. ＯＰＭＡＸ＝２０　　　　　′オフ゜ションノカス゛
019. ＭＩＤ０＝０　　　　　　　′シ゛キノスフ゜ライトＩＤ０
020. ＭＩＤ１＝ＯＰＭＡＸ＋１　′シ゛キノスフ゜ライトＩＤ１
021. 
022. ′ＬＡＳＥＲステ－タス　シ゛キ＋オフ゜ション
023. ＤＩＭ　ＬＳＴ（ＯＰＭＡＸ＋１，４）
024. ＦＯＲ　Ｉ＝０　ＴＯ　ＯＰＭＡＸ
025. 　　ＬＳＴ（Ｉ，０）＝０　　′フラク゛
026. 　　ＬＳＴ（Ｉ，１）＝０　　′ナカ゛サ
027. 　　ＬＳＴ（Ｉ，２）＝０　　′カイシＸ
028. 　　ＬＳＴ（Ｉ，３）＝０　　′カイシＹ
029. ＮＥＸＴ　Ｉ
030. 
031. ′テキキャラカンリヨウ
032. ＥＭ０＝ＭＩＤ１＋１　　　′テキキャラカイシスフ゜ライトＮｏ
033. ＥＭＣ＝０　　　　　　　　′テキキャラカウント
034. ＦＲＭＣＮＴ＝０　　　　　′テキシュツケ゛ンタイミンク゛ヨウ
035. 
036. ′ク゛ラフィックショキセッテイ
037. ＧＰＡＧＥ　０，０，０
038. ＧＰＲＩＯ　２
039. 
040. ′スフ゜ライトシ゛ュンヒ゛
041. ＤＩＭ　ＳＰＫ（１００），ＳＰＰ（１００），ＳＰＨ（１００），ＳＰＶ（１００），ＳＰＩ（１００）
042. ＤＩＭ　ＳＰＦ（１００），ＳＰＸ（１００），ＳＰＹ（１００）
043. ＤＩＭ　ＳＰＡ（１００），ＳＰＸ２（１００），ＳＰＹ２（１００）　′コノ３ツハシンキホカント゛ウサヨウ
044. ＤＩＭ　ＳＯＮ（１００）　′テキキャラシュツケ゛ンフラク゛トシテリヨウ
045. ＦＯＲ　Ｉ＝０　ＴＯ　９９
046. ′　　ＳＰＦ（Ｉ）＝０　　′０：スキッフ゜　１：シンキ　２：イト゛ウ　３：ヘンコウ　４：シュウキョ
047. 　　ＳＰＦ（Ｉ）＝－１　　′－１：ムシ？　０：スキッフ゜　１：シンキ　２：シンキ（ホカンアリ）　３：イト゛ウ　４：イト゛ウ（ホカンアリ）　５：ヘンコウ　６：シュウキョ
048. ＮＥＸＴ　Ｉ
049. ′シ゛キセッテイ
050. ＳＰＫ（ＭＩＤ０）＝２５６
051. ＳＰＰ（ＭＩＤ０）＝２
052. ＳＰＨ（ＭＩＤ０）＝０
053. ＳＰＶ（ＭＩＤ０）＝０
054. ＳＰＩ（ＭＩＤ０）＝０
055. ＳＰＦ（ＭＩＤ０）＝１
056. ＳＰＸ（ＭＩＤ０）＝１００
057. ＳＰＹ（ＭＩＤ０）＝１００
058. ＳＰＫ（ＭＩＤ１）＝２５７
059. ＳＰＰ（ＭＩＤ１）＝２
060. ＳＰＨ（ＭＩＤ１）＝０
061. ＳＰＶ（ＭＩＤ１）＝０
062. ＳＰＩ（ＭＩＤ１）＝０
063. ＳＰＦ（ＭＩＤ１）＝１
064. ＳＰＸ（ＭＩＤ１）＝１１６
065. ＳＰＹ（ＭＩＤ１）＝１００
066. 
067. ′オフ゜ション
068. ＯＰＷ＝８　　　　′オフ゜ションノウエイト
069. ＤＩＭ　ＯＰ（ＯＰＷ＊ＯＰＭＡＸ，２）　　′オフ゜ショヨウエイトテ－フ゛ル　Ｘ，Ｙ
070. ＯＰＣ＝０　　　　′ヒョウシ゛チュウノオフ゜ションスウ
071. ＦＯＲ　Ｉ＝１　ＴＯ　ＯＰＭＡＸ
072. 　ＳＰＫ（Ｉ）＝２００
073. 　ＳＰＰ（Ｉ）＝５
074. 　ＳＰＨ（Ｉ）＝０
075. 　ＳＰＶ（Ｉ）＝０
076. 　ＳＰＩ（Ｉ）＝０
077. 　ＳＰＦ（Ｉ）＝－１
078. 　ＳＰＸ（Ｉ）＝０
079. 　ＳＰＹ（Ｉ）＝０
080. ＮＥＸＴ　Ｉ
081. 
082. ＳＰＣＮＴ＝ＥＭ０－１　　′スフ゜ライトサイタ゛イスウ
083. 
084. ′オフ゜ションサ゛ヒョウテ－フ゛ル　０：Ｘ　１：Ｙ
085. ＤＩＭ　ＯＰ＄（２）
086. 
087. ′ＧＯＳＵＢ　＠ＴＥＫＩＩＮＴ
088. ＧＯＳＵＢ　＠ＳＰＷＲＩＴＥ
089. 
090. ＠ＭＬＯＯＰ
091. ′ニュウリョク
092. ＸＸ＝０：ＹＹ＝０
093. ＢＴＮ＝ＢＵＴＴＯＮ（０）
094. 
095. ＩＦ　ＢＴＮ　ＡＮＤ　　６４　ＧＯＴＯ　＠ＥＸＩＴ　　′Ｘホ゛タン
096. ＩＦ　ＢＴＮ　ＡＮＤ　１２８　ＴＨＥＮ　ＳＨＯＴ＝１　′Ｙホ゛タン
097. ＩＦ　ＢＴＮ　ＡＮＤ　　　１　ＴＨＥＮ　ＹＹ＝－２　　′ウエ
098. ＩＦ　ＢＴＮ　ＡＮＤ　　　２　ＴＨＥＮ　ＹＹ＝２　　　′シタ
099. ＩＦ　ＢＴＮ　ＡＮＤ　　　４　ＴＨＥＮ　ＸＸ＝－２　　′ヒタ゛リ
100. ＩＦ　ＢＴＮ　ＡＮＤ　　　８　ＴＨＥＮ　ＸＸ＝２　　　′ミキ゛
101. 
102. ′レンソ゛クシテニュウリョクサレナイヨウニフラク゛テ゛セイキ゛ョスル
103. ＩＦ　ＢＴＮ　ＡＮＤ　１６　ＴＨＥＮ　ＡＢ＝１　ＥＬＳＥ　ＡＢ＝０　′Ａホ゛タン
104. ＩＦ　ＡＢ＝＝０　ＴＨＥＮ　ＡＦＬＧ＝１
105. ＩＦ　ＢＴＮ　ＡＮＤ　３２　ＴＨＥＮ　ＢＢ＝１　ＥＬＳＥ　ＢＢ＝０　′Ｂホ゛タン
106. ＩＦ　ＢＢ＝＝０　ＴＨＥＮ　ＢＦＬＧ＝１
107. 
108. ＩＦ　ＸＸ！＝０　ＯＲ　ＹＹ！＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＹＭＯＶＥ
109. 
110. ＩＦ　ＳＨＯＴ＝＝０　ＧＯＴＯ　＠ＳＨＯＴＳＫＩＰ
111. 　ＦＯＲ　Ｉ＝０　ＴＯ　ＯＰＣ
112. 　　ＬＳＴ（Ｉ，０）＝１
113. 　ＮＥＸＴ
114. 　ＳＨＯＴ＝０
115. ＠ＳＨＯＴＳＫＩＰ
116. 
117. ′オフ゜ション　Ａホ゛タン＝ヘラス　Ｂホ゛タン＝フヤス
118. ＩＦ　ＡＦＬＧ　ＡＮＤ　ＡＢ　ＴＨＥＮ　ＯＰＡＤＤ＝－１
119. ＩＦ　ＢＦＬＧ　ＡＮＤ　ＢＢ　ＴＨＥＮ　ＯＰＡＤＤ＝１
120. ＩＦ　ＯＰＡＤＤ！＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＯＰＴＩＯＮ
121. 
122. ＷＡＩＴ　１
123. ′ＧＯＳＵＢ　＠ＳＰＷＲＩＴＥ
124. ＧＯＳＵＢ　＠ＬＡＳＥＲ
125. ＧＯＳＵＢ　＠ＳＰＷＲＩＴＥ
126. ＧＯＳＵＢ　＠ＢＧＳＣＲ
127. ＧＯＳＵＢ　＠ＴＥＫＩ
128. ＦＲＭＣＮＴ＝ＦＲＭＣＮＴ＋１
129. ＧＯＴＯ　＠ＭＬＯＯＰ
130. 
131. 
132. ＠ＯＰＴＩＯＮ
133. 　ＩＦ　ＯＰＡＤＤ＝＝－１　ＧＯＴＯ　＠ＯＰＴＭＩ
134. 　　′オフ゜ションツイカ
135. 　　ＢＦＬＧ＝０
136. 　　ＩＦ　ＯＰＣ＝＝ＯＰＭＡＸ　ＧＯＴＯ　＠ＯＰＥＮＤ
137. 　　　ＯＰＣ＝ＯＰＣ＋１
138. 　　　ＯＰＸ＝ＳＰＸ（ＯＰＣ－１）
139. 　　　ＩＦ　ＯＰＣ＝＝１　ＴＨＥＮ　ＯＰＸ＝ＯＰＸ＋４
140. 　　　ＯＰＹ＝ＳＰＹ（ＯＰＣ－１）
141. 　　　′ツイカシタ　オフ゜ションノ　イチ
142. 　　　ＯＰ＄（０）＝ＯＰ＄（０）＋ＣＨＲ＄（ＯＰＸ）＊ＯＰＷ
143. 　　　ＯＰ＄（１）＝ＯＰ＄（１）＋ＣＨＲ＄（ＯＰＹ）＊ＯＰＷ
144. 　　　′スフ゜ライト
145. 　　　ＳＰＸ（ＯＰＣ）＝ＯＰＸ
146. 　　　ＳＰＹ（ＯＰＣ）＝ＯＰＹ
147. 　　　ＳＰＦ（ＯＰＣ）＝１
148. 　ＧＯＴＯ　＠ＯＰＥＮＤ
149. 　＠ＯＰＴＭＩ
150. 　　ＡＦＬＧ＝０
151. 　　ＩＦ　ＯＰＣ＝＝０　ＧＯＴＯ　＠ＯＰＥＮＤ
152. 　　　ＳＰＦ（ＯＰＣ）＝６
153. 　　　ＯＰＣ＝ＯＰＣ－１
154. 　＠ＯＰＥＮＤ
155. 　ＯＰＡＤＤ＝０
156. ＲＥＴＵＲＮ
157. 
158. ＠ＥＸＩＴ
159. ＡＣＬＳ
160. ＰＲＩＮＴ”シュウリョウ
161. ＥＮＤ
162. 
163. ＠ＭＹＭＯＶＥ
164. ′シ゛キノイト゛ウ
165. ＳＰＸ（ＭＩＤ０）＝ＳＰＸ（ＭＩＤ０）＋ＸＸ
166. ＩＦ　ＳＰＸ（ＭＩＤ０）＜０　ＴＨＥＮ　ＳＰＸ（ＭＩＤ０）＝０
167. ＩＦ　ＳＰＸ（ＭＩＤ０）＞２２３　ＴＨＥＮ　ＳＰＸ（ＭＩＤ０）＝２２３
168. ＳＰＹ（ＭＩＤ０）＝ＳＰＹ（ＭＩＤ０）＋ＹＹ
169. ＩＦ　ＳＰＹ（ＭＩＤ０）＜０　ＴＨＥＮ　ＳＰＹ（ＭＩＤ０）＝０
170. ＩＦ　ＳＰＹ（ＭＩＤ０）＞１７５　ＴＨＥＮ　ＳＰＹ（ＭＩＤ０）＝１７５
171. ＳＰＦ（ＭＩＤ０）＝３
172. ＳＰＸ（ＭＩＤ１）＝ＳＰＸ（ＭＩＤ０）＋１６
173. ＳＰＹ（ＭＩＤ１）＝ＳＰＹ（ＭＩＤ０）
174. ＳＰＦ（ＭＩＤ１）＝３
175. ′オフ゜ションイト゛ウ
176. ＩＦ　ＯＰＣ＝＝０　ＧＯＴＯ　＠ＯＰＭＶＳＫＩＰ
177. 　′オフ゜ションウエイトテ－フ゛ルヲ１ツスライト゛
178. 　ＯＰＷＯＲＫ＝ＯＰＷ＊ＯＰＣ－１
179. 　′サイコ゛１モシ゛キリトル
180. 　′セントウニ　シ゛キノイチヲイレル
181. 　ＯＰ＄（０）＝ＣＨＲ＄（ＳＰＸ（ＭＩＤ０）＋４）＋ＬＥＦＴ＄（ＯＰ＄（０），ＯＰＷＯＲＫ）
182. 　ＯＰ＄（１）＝ＣＨＲ＄（ＳＰＹ（ＭＩＤ０））＋ＬＥＦＴ＄（ＯＰ＄（１），ＯＰＷＯＲＫ）
183. 
184. 　′オフ゜ツョンスフ゜ライトニハンエイ
185. 　ＦＯＲ　Ｉ＝１　ＴＯ　ＯＰＣ
186. 　　ＩＦ　ＳＰＦ（Ｉ）！＝－１　ＧＯＴＯ　＠ＯＰＨＳＫＩＰ　′ツイカ、サクシ゛ョサレタモノハトハ゛ス
187. 　　　ＳＰＸ（Ｉ）＝ＡＳＣ（ＭＩＤ＄（ＯＰ＄（０），Ｉ＊ＯＰＷ－１，１））
188. 　　　ＳＰＹ（Ｉ）＝ＡＳＣ（ＭＩＤ＄（ＯＰ＄（１），Ｉ＊ＯＰＷ－１，１））
189. 　　　ＳＰＦ（Ｉ）＝３
190. 　　＠ＯＰＨＳＫＩＰ
191. 　ＮＥＸＴ
192. ＠ＯＰＭＶＳＫＩＰ
193. ＲＥＴＵＲＮ
194. 
195. ′－－－スフ゜ライトカキカエ
196. ＠ＳＰＷＲＩＴＥ
197. ＦＯＲ　Ｊ＝０　ＴＯ　ＳＰＣＮＴ
198. 　ＳＮ＝Ｊ
199. ′ＰＲＩＮＴ　”ＤＢ　”，ＳＰＦ（Ｊ），”　＝＝＝”
200. 　ＯＮ　ＳＰＦ（Ｊ）　ＧＯＳＵＢ　＠ＳＰＳＫＩＰ，＠ＳＰＮＥＷ，＠ＳＰＮＥＷ２，＠ＳＰＭＯＶＥ，＠ＳＰＭＯＶＥ２，＠ＳＰＣＨＡＮＧ，＠ＳＰＤＥＬ
201. ＮＥＸＴ
202. ＲＥＴＵＲＮ
203. 
204. ＠ＳＰＳＫＩＰ　　′ナニモシナイ
205. ′シ゛ッサイニハココニハコナイ
206. ′ＰＲＩＮＴ　”ＤＢ　ＳＰＳＫＩＰ”
207. ＲＥＴＵＲＮ
208. 
209. ＠ＳＰＮＥＷ
210. ＳＰＳＥＴ　ＳＮ，ＳＰＫ（ＳＮ），ＳＰＰ（ＳＮ），ＳＰＨ（ＳＮ），ＳＰＶ（ＳＮ），ＳＰＩ（ＳＮ）
211. ＳＯＮ（ＳＮ）＝１
212. ′ＳＰＦ（ＳＮ）＝－１
213. ＧＯＳＵＢ　＠ＳＰＭＯＶＥ
214. ＲＥＴＵＲＮ
215. 
216. ＠ＳＰＮＥＷ２
217. ＳＰＳＥＴ　ＳＮ，ＳＰＫ（ＳＮ），ＳＰＰ（ＳＮ），ＳＰＨ（ＳＮ），ＳＰＶ（ＳＮ），ＳＰＩ（ＳＮ）
218. ＳＯＮ（ＳＮ）＝１
219. ′ＳＰＦ（ＳＮ）＝－１
220. ＧＯＳＵＢ　＠ＳＰＭＯＶＥ
221. ＧＯＳＵＢ　＠ＳＰＭＯＶＥ２
222. ＲＥＴＵＲＮ
223. 
224. ＠ＳＰＭＯＶＥ
225. ＳＰＯＦＳ　ＳＮ，ＳＰＸ（ＳＮ），ＳＰＹ（ＳＮ）
226. ＳＰＦ（ＳＮ）＝－１
227. ＲＥＴＵＲＮ
228. 
229. ＠ＳＰＭＯＶＥ２　　′ホカント゛ウサアリ
230. ＩＦ　ＳＰＣＨＫ（ＳＮ）＝＝０　ＴＨＥＮ　ＳＰＯＦＳ　ＳＮ，ＳＰＸ２（ＳＮ），ＳＰＹ２（ＳＮ），ＳＰＡ（ＳＮ）
231. ′ＳＰＯＦＳ　ＳＮ，ＳＰＸ２（ＳＮ），ＳＰＹ２（ＳＮ），ＳＰＡ（ＳＮ）
232. ＳＰＦ（ＳＮ）＝－１
233. ＲＥＴＵＲＮ
234. 
235. ＠ＳＰＣＨＡＮＧ
236. 　′テストヨウ
237. 　ＳＰＰ（ＳＮ）＝ＳＰＰ（ＳＮ）＋１
238. 　ＩＦ　ＳＰＰ（ＳＮ）＞１５　ＴＨＥＮ　ＳＰＰ（ＳＮ）＝０
239. ＳＰＣＨＲ　ＳＮ，ＳＰＫ（ＳＮ），ＳＰＰ（ＳＮ），ＳＰＨ（ＳＮ），ＳＰＶ（ＳＮ），ＳＰＩ（ＳＮ）
240. ＳＰＦ（ＳＮ）＝－１
241. ＲＥＴＵＲＮ
242. 
243. ＠ＳＰＤＥＬ
244. ＳＯＮ（ＳＮ）＝０
245. ＳＰＣＬＲ　ＳＮ
246. ＳＰＦ（ＳＮ）＝－１
247. ＲＥＴＵＲＮ
248. 
249. ＠ＬＡＳＥＲ
250. ＦＯＲ　Ｋ＝０　ＴＯ　ＯＰＣ
251. 　ＩＦ　ＬＳＴ（Ｋ，０）＝＝０　ＧＯＴＯ　＠ＬＡＮＥＸＴ
252. 　　′フルイレ－サ゛－ヲケス
253. 　　′ナカ゛サ０ナラフルイレ－サ゛－ハナイ
254. 　　ＩＦ　ＬＳＴ（Ｋ，１）＝＝０　ＧＯＴＯ　＠ＬＡＳＫ１
255. 　　　ＬＥＮＤ＝ＬＳＴ（Ｋ，２）＋ＬＳＴ（Ｋ，１）
256. 　　　ＩＦ　ＬＥＮＤ＞２５５　ＴＨＥＮ　ＬＥＮＤ＝２５５
257. 　　　ＧＬＩＮＥ　ＬＳＴ（Ｋ，２），ＬＳＴ（Ｋ，３），ＬＥＮＤ，ＬＳＴ（Ｋ，３），０
258. 　　＠ＬＡＳＫ１
259. 　　′アタラシイレ－サ゛－
260. 　　′ナカ゛サカ゛２２０ヲコケタフ゛ンハ　スキマニナル
261. 　　ＬＳＴ（Ｋ，１）＝ＬＳＴ（Ｋ，１）＋１５
262. 　　ＬＳＴ（Ｋ，２）＝ＳＰＸ（Ｋ）＋２８　　′（３２－４）
263. 　　ＩＦ　Ｋ！＝０　ＴＨＥＮ　ＬＳＴ（Ｋ，２）＝ＬＳＴ（Ｋ，２）－４
264. 　　ＬＳＴ（Ｋ，３）＝ＳＰＹ（Ｋ）＋８
265. 　　ＩＦ　ＬＳＴ（Ｋ，１）＞２２０　ＴＨＥＮ　ＬＳＴ（Ｋ，２）＝ＬＳＴ（Ｋ，２）＋（ＬＳＴ（Ｋ，１）－２２０）
266. 　　ＩＦ　ＬＳＴ（Ｋ，２）＜＝２５５　ＴＨＥＮ　ＧＯＴＯ　＠ＬＤＲＡＷ
267. 　　　′カ゛メンカ゛イニテ゛タ
268. 　　　ＬＳＴ（Ｋ，０）＝０
269. 　　　ＬＳＴ（Ｋ，１）＝０
270. 　　　ＧＯＴＯ　＠ＬＡＮＥＸＴ
271. 　　＠ＬＤＲＡＷ
272. 　　ＬＥＮＤ＝ＬＳＴ（Ｋ，２）＋ＬＳＴ（Ｋ，１）
273. 　　ＩＦ　ＬＥＮＤ＞２５５　ＴＨＥＮ　ＬＥＮＤ＝２５５
274. 　　ＧＬＩＮＥ　ＬＳＴ（Ｋ，２），ＬＳＴ（Ｋ，３），ＬＥＮＤ，ＬＳＴ（Ｋ，３），６
275. 　　′テキトノショウトツハンテイ
276. 　　ＩＩ＝ＥＭ０＋ＥＭＣ
277. 　　ＦＯＲ　Ｉ＝ＥＭ０　ＴＯ　ＩＩ
278. 　　　ＩＦ　ＳＯＮ（Ｉ）＝＝０　ＧＯＴＯ　＠ＡＴＡＳＫ
279. 　　　′イト゛ウチュウニ　イロヲカエルト　トマッテシマウ
280. 　　　′イト゛ウチュウノモノハ　ココテ゛　ツ゛ョカ゛イ
281. 　　　ＩＦ　ＳＰＣＨＫ（Ｉ）！＝０　ＧＯＴＯ　＠ＡＴＡＳＫ
282. 　　　ＩＦ　ＳＰＨＩＴＲＣ（Ｉ，ＬＳＴ（Ｋ，２），ＬＳＴ（Ｋ，３）－４，ＬＳＴ（Ｋ，１），８）　ＴＨＥＮ　ＳＰＦ（Ｉ）＝５
283. 　　　＠ＡＴＡＳＫ
284. 　　ＮＥＸＴ
285. 　＠ＬＡＮＥＸＴ
286. ＮＥＸＴ
287. ＲＥＴＵＲＮ
288. 
289. 
290. ′－－ＢＧノショリ－－
291. ＠ＢＧＳＥＴ　′ＢＧニハイケイヲヒ゛ョウカ゛
292. ＢＧＰＡＧＥ　０
293. ＦＯＲ　Ｉ＝０　ＴＯ　６３
294. 　ＦＯＲ　Ｊ＝０　ＴＯ　２３
295. 　　ＢＧＰＵＴ　１，Ｉ，Ｊ，９２８，０，０，０　′マックラ
296. 　　′メント゛ウナノテ゛ランタ゛ムテ゛ホシヲタ゛ス
297. 　　ＲＮ１＝ＲＮＤ（１６）
298. 　　ＲＮ２＝ＲＮＤ（２）
299. 　　ＩＦ　ＲＮ２＝＝０　ＴＨＥＮ　ＨＯＳＨＩ＝８５９　ＥＬＳＥ　ＨＯＳＨＩ＝８９１
300. 　　ＩＦ　ＲＮ１＝＝０　ＴＨＥＮ　ＢＧＰＵＴ　１，Ｉ，Ｊ，ＨＯＳＨＩ，０，０，０
301. 　ＮＥＸＴ
302. ＮＥＸＴ
303. ＲＥＴＵＲＮ
304. 
305. ＠ＢＧＳＣＲ
306. ＩＦ　ＢＧＣＨＫ（１）！＝０　ＧＯＴＯ　＠ＢＧＳＳＫ　　′ホカンシ゛ョウタイナラ　スキッフ゜
307. 　ＢＧＯＦＳ　１，０，０
308. 　ＢＧＯＦＳ　１，５１１，０，１０２４
309. ＠ＢＧＳＳＫ
310. ＲＥＴＵＲＮ
311. 
312. ′－－テキキャラ－－
313. ＠ＴＥＫＩＩＮＴ　　′テキキャラシ゛ュンヒ゛
314. ＦＯＲ　Ｉ＝０　ＴＯ　９
315. 　ＳＮ＝ＥＭ０＋Ｉ
316. 　ＳＰＫ（ＳＮ）＝１７４
317. 　ＳＰＰ（ＳＮ）＝０
318. 　ＳＰＨ（ＳＮ）＝０
319. 　ＳＰＶ（ＳＮ）＝０
320. 　ＳＰＩ（ＳＮ）＝２
321. 　ＳＰＸ（ＳＮ）＝２５５
322. 　ＳＰＹ（ＳＮ）＝１８＊Ｉ
323. 　ＳＰＡ（ＳＮ）＝７６
324. 　ＳＰＸ２（ＳＮ）＝１８０
325. 　ＳＰＹ２（ＳＮ）＝ＳＰＹ（ＳＮ）
326. 　ＳＰＦ（ＳＮ）＝－１
327. 　ＳＯＮ（ＳＮ）＝０
328. ＮＥＸＴ
329. ＥＭＣ＝１０
330. ＳＰＣＮＴ＝ＥＭ０＋ＥＭＣ
331. ＲＥＴＵＲＮ
332. 
333. ＠ＴＥＫＩ　　′テキト゛ウサ
334. 　′シュツケ゛ン
335. 　ＩＦ　ＦＲＭＣＮＴ％１０！＝０　ＧＯＴＯ　＠ＴＫＳＫ１
336. 　　ＴＩＤ＝ＦＲＭＣＮＴ／１０
337. 　　ＩＦ　ＴＩＤ＝＝０　ＯＲ　ＴＩＤ＞１０　ＧＯＴＯ　＠ＴＫＳＫ１
338. 　　　ＳＰＦ（ＥＭ０＋ＴＩＤ－１）＝２
339. 　　　′ＳＯＮ（ＥＭ０＋ＴＩＤ－１）＝１
340. 　＠ＴＫＳＫ１
341. 　′タイキャク　ＳＰＫ＝１７４ノモノ
342. 　ＩＦ　ＦＲＭＣＮＴ＝＝４００　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＫＩＴＡＩ
343. 　′ショキカ
344. 　ＩＦ　ＦＲＭＣＮＴ＞５１１　ＴＨＥＮ　ＦＲＭＣＮＴ＝０
345. 　ＩＦ　ＦＲＭＣＮＴ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＫＩＩＮＴ
346. ＲＥＴＵＲＮ
347. 
348. ＠ＴＥＫＩＴＡＩ　′テキタイキャクショリ
349. 　ＦＯＲ　Ｉ＝０　ＴＯ　９
350. 　　ＩＩ＝ＥＭ０＋Ｉ
351. 　　ＳＯＮ（ＩＩ）＝０
352. 　　ＩＦ　ＳＰＫ（ＩＩ）！＝１７４　ＧＯＴＯ　＠ＴＴＳＫ１
353. 　　　′ＳＰＫカ゛１７４ノモノハ　イキテイル
354. 　　　ＳＰＸ２（ＩＩ）＝２５６
355. 　　　ＳＰＦ（ＩＩ）＝４
356. 　　＠ＴＴＳＫ１
357. 　ＮＥＸＴ
358. ＲＥＴＵＲＮ
359. 
360.